LIBRARY 

RESEARCH REPORTS DIVISION 
NAVAL POSEG.' 1 '''ATE SCHOO 
MONTEREY, CALkORNIA 9394C 



NPS 52-82- Q09 

NAVAL POSTGRADUATE SCHOOL. 

Monterey, California 




A SIMPLE, NATURAL NOTATION FOR APPLICATIVE LANGUAGES 
Bruce J. MacLennan 

September 1982 



FEDDOCS 
D 208.14/2: 
NPS-52-82-Q09 



Approved for public release; distribution unlimited 

Chief of Naval Research 
Arlington, Virginia 22217 




DUDLEY KNOX LIBRARY 
NAVAL POSTGRADUATE SCHOOL 

MONTEREY, CA 93943-5101 NAVAL POSTGRADUATE SCHOOL 

Monterey, California 



Rear Admiral J. J. Ekelund D. A. Schrady 

Superintendent Provost 



The work reported herein was supported in part by the Foundation Research 
Program of the Naval Postgraduate School with funds provided by the Chief of 
Naval Research. 

Reproduction of all or part of this report is authorized. 

This report was prepared by: 



UNCLASSIFIED 



SECURITY CLASSIFICATION of this PACE (When Data Entsrad) 



REPORT DOCUMENTATION PAGE 


READ INSTRUCTIONS 
BEFORE COMPLETING FORM 


1. REPORT NUMBER 2. GOVT ACCESSION NO. 

NPS52-82-009 


3. RECIPIENT'S CATALOG NUMBER 


4. TITLE (and Subtitle ) 

A Simple, Natural Notation for Applicative 
Languages 


S. TYPE OF REPORT & PERIOD COVERED 

Techincal Report 


6. PERFORMING ORG. REPORT NUM8ER 


7. Au THORf a) 

Bruce J. MacLennan 


8. CONTRACT OR GRANT NUMBERftj 


9. performing organization name ano aooress 

Naval Postgraduate School 
Monterey, CA 93940 


10. PROGRAM ELEMENT. PROJECT. TASK 
AREA S WORK UNIT NUMBERS 

61152N: RROOO-O 1 — 10 
N0001482WR20043 


II. controlling office name and address 

Naval Postgraduate School 
Monterey, CA 93940 


12. REPORT DATE 

September 1982 


13. NUMBER OF PAGES 
16 


14. MONITORING AGENCY NAME 4 AOORESS (It different from Controlling Office) 

Chief of Naval Research 
Arlington, Virginia 22217 


15. SECURITY CLASS, (of this report) 

UNCLASSIFIED 


15a. DECLASSIFICATION/ DOWNGRADING 
SCHEDULE 


16. DISTRIBUTION STATEMENT (of this Report) 

Approved for public release; distribution unlimited 


17. DISTRIBUTION STATEMENT (of the abstract entered In Block 20 f It different from Report) 


18. SUPPLEMENTARY NOTES 


19. KEY WOROS (Continue on reverse elds It necessary and Identify by block number) 

Notation, Applicative Languages, Functional Programming, Relational 
Programming, Logic Programming, PROLOG, Relational Databases, LISP. 


20. ABSTRACT (Continue or\ rsye/ae aide It necs^aaary and Identify bv block number) 

Many non-specia lists are intimidated by the mathematical appearance of most 
applicative, functional, and very-high-level languages. This report presents a 
simple notation that has an unintimidating, natural-language appearance and that 
can be adapted to a variety of languages. The paper demonstrates its use as an 
alternate syntax for LISP, PROLOG, Backus' FP, relational programming, and rela- 
tional database retrievals. The grammar's eight productions can be handled by a 
simple recursive-descent parser. 



DO 1 JAN M 73 1473 EDITION OF 1 NOV 95 IS OBSOLETE UNCLASSIFIED 

S/N 0102* LF- 014- 6601 



SECURITY CLASSIFICATION OF THIS RAGE fl»h»n Dmtm Bnlmrmd) 



A SIMPLE, NATURAL NOTATION FOR APPLICATIVE LANGUAGES* 



B. J. MacLennan 
Computer Science Department 
Naval Postgraduate School 
Monterey, CA 939^0 



1 . Introduction 

Many non-specialists are intimidated by the mathematical appear- 
ance of most applicative and very-high-level languages. 
Mathematical notations have distinct manipulative advantages, 
some of which I have discussed in MacLennan (1979)- Unfor- 
tunately the widespread use of advanced languages may be limited 
by their excessive use of mathematical notations. This paper 
presents a simple notation that has an un intimidating , natural- 
language appearance and that can be adapted to a variety of 
1 anguages . 

I must stress that I am not suggesting that this notation 
constitutes natural language programming. This notation is very 
far indeed from being even a subset of English, or any other 
natural language. However, the reader will see that with a 
proper choice of vocabulary the notation can be quite readable. 

I must also stress that this notation is not in itself a 
programming language. It is more accurate to describe it as a 

* Work described in this report was supported in part by the 
Office of Naval Research under contract number N0001 4-32-WR- 
20162. 
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syntactic fr amework that can be adapted to a number of specific 



contexts by a proper choice of vocabulary. The figures in this 
paper demonstrate its use as an alternate syntax for LISP, logic 
programming, functional programming, relational programming, and 
relational database operations. 

2. Syntax 

A natural, readable notation results from combining non-symbolic 
operator names with a right-associative infix syntax, and comma 
and colon rules that suppress many parentheses. Of course, some 
of the manipulative advantages of a mathematical notation are 
1 ost . 



Briefly, the syntax is as follows: All identifiers are 
divided into three classes: niladic (x, y, z, in the following 
examples), monadic (f, g) , and dyadic (p, q, r). Monadic appli- 
cations, whether functions or predicates, are written "f x", "f g 
x" , etc. These associate to the right, hence "f g x" means "f(g 

x) ". Dyadic applications, whether functions or relations, are 
written with a right-associative, infix syntax. That is, "x p y 
q z" means "x p (y q z)". Monadic applications are more binding 
than dyadic applications; hence, "f x p g y" means "(f x) p (g 

y) ". Operations that accept more than two operands are expressed 
by using a list building (or argument combining) operation. For 
example, if the operation "y with z" produces the pair (y,z), 
then the triadic operation p can be applied by "x p y with z" . 
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Commas and colons can be used to eliminate many parentheses. 
A comma is equivalent to a right parenthesis. The corresponding 
left parenthesis is at the nearest preceding colon, or at the 
beginning of the expression, if there is no preceding colon. 
Hence, "x p y, q z" means " ( x p y) q z" and "x p: y q z, r w" 
means "x p (y q z) r w" , which by right-associativity means "x p 
( ( y q z) r w) " . 
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inverse 'plus' 

The formal grammar for this notation is in the appendix. 

Figure 1 shows the natural notation adapted to LISP. The 
particular vocabulary choices shown are typical. The following 
two figures show a program in conventional LISP notation and in 
the natural notation. The remaining figures compare other 
mathematical and symbolic notations to the natural notation. 

3 . Ref erences 

[1] MacLennan, B. J. Observations on the Differences Between 
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Formulas and Sentences and their Application to Programming 



Language 
51-61 . 


Design , 


SIGPLAN Notices 14, 7, (July 


Appendix : 


Grammar 


for Natural Notation. 


sentence 
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clause . 


clause 




term [predicate] 
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phrase, predicate 


predicate 
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infix term [predicate] 
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infix: clause 


phrase 


= 


simple-phrase 
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phrase, infix simple-phrase 


simple-phrase = 


term [infix simple-phrase] 


term 
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nilad 
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"(" clause ")" 
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prefix term 
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' monad ' 
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'dyad ' 
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" { " clause " } " 
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prefix infix 


prefix 
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monad 



+ " [" clause " ] " 
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Natural Notation 

"X F Y with Z" means B 

"X F Y” means B 

"F X” means B 

C if B, else D 

"X" means Y, below B 

first X 

rest X 

second X 

third X 

X with Y 

X is Y 

atom X 

null X 

number X 

X append Y 

X search Y 



LISP 



(defun F (X Y Z) B) 
(defun F (X Y) B) 
(defun F (X) B) 
(cond (B C) (T D)) 
(let ((X Y)) B) 

(car X) 

(cdr X) 

(cadr X) 

(caddr X) 

(cons X Y) 

(eq X Y) 

(atom X) 

(null X) 

(numberp X) 

(append X Y) 

(assoc X Y) 



Figure 1. Comparison of Natural Notation and LISP 



(defun eql (x y) 

(or (and (atom x) (atom y) (eq x y) ) 

(and (not (atom x)) (not (atom y) ) 

( eql ( car x ) (car y ) ) 

(eql (cdr x) (cdr y)) )) ) 

Figure 2. Equal Function in LISP 

"X equals Y" means: 

atom X and atom Y and X is Y, or 
not atom X and not atom Y and: 
first X equals first Y, and 
rest X equals rest Y. 

Figure 3- Equal Function in Natural Notation 

Isa ( John , human ) . 

Gives (John, book, Mary). 

Gives (John, book, x) 4- Likes (John, x). 
Likes (w,x) Gives( w,y ,x) , Likes(w,y). 

Figure 4. Logic Program in Usual Notation 

John isa human . 

John gives book to Mary. 

John gives book to one., if John likes one. 

One likes another, if: 

one gives gift to another, and one likes gift. 
Figure 5- Logic Program in Natural Notation 
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Def IP = (/+)*( oc X ) 'trans . 

Def MM = (oc oc IP)*(oc distl)*[1, trans‘2] 

Figure 6. Functional Program in Backus Notation 

Inner-product means 

transpose then repeat times then reduce-by plus. 

Matrix-mul tiply means: 

first combine second then transpose, 

then repeat distribute-left 

then repeat repeat inner-product. 

Figure ?. Functional Program in Natural Notation 

f$R = f “ 1 . R . f 

rightsib = T " 1 $( Id | | ( + 1 ) ) 

next = move. total [while( non.dom rightsib, parent); rightsib] 
prev = move. total 

— 1 1 

[while( non.dom rightsib , parent); rightsib - ] 

remove(L) = L := subtree N; excise 
subtree(n) = (m ! m X ints) T 

where m = subnodes n 
reach = (img T).(X ints) 

excise = T : = T <> non. subnodes N | (T -1 N, N, NT N) 

replace ( L ) = T : = (T -1 N : first L ! L) / T 

Figure 8. Part of Syntax Directed Editor in Relational Notation 
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"Function map structure" means 

function then structure then inverse function. 
"Right-sibling" means 

inverse tree map identity parallel something plus 1. 
"Move-next" means parent do-while non domain right-sibling, 
then right-sibling, apply total then move. 

"Move-previous" means 

parent do-while non domain inverse right-sibling, 
then inverse right-sibling, apply total then move. 

"Remove-from buffer" means: 

buffer becomes subtree of current-node, then excise. 
"Subtree a-node" means: 

tree if-in the-subnodes combine the-subnodes cross integer 
where the-subnodes means subnodes of a-node. 

"Reach" means: something cross integers, then image tree. 

"Excise" means tree becomes 

tree restrict non subnodes of current-node 

combine: current-node apply inverse tree, 

connect current-node connect non-term of current-node. 

" Replace-from buffer" means tree becomes: 

current-node apply inverse tree, maps-to first buffer, 
combine buffer, extend tree. 

Figure 9. Part of Syntax Directed Editor in Natural Notatio 
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{ (F. COMPANY) : F € FORESTS A F.SIZE>1000} 



{ (F. COMPANY, F. FOREST) : F 6 FORESTS A F. LOCr * CALIFORNIA « } 

{ ( F . SIZE , F . LOC ) : F 6 FORESTS A 

3 T € TREE (T.SPECIES='CEDAR* A T. FOREST = F. FOREST)} 

{ (F.SIZE,T.TREENUM) : F € FORESTS A T € TREE A 
T. FOREST = F. FOREST A T. SPECIES = ’CEDAR*} 

Figure 10. Relational Database Retrievals in Conventional 
Notation 

Company F whenever: F in forests, and size F > 1000. 

Company F with forest F, whenever: 

F in forests, and location F is "California**. 

Size F with location F, whenever: F in forests, 
and: T in trees, exists: 

species T is "cedar", and forest T is forest F. 

Size F with tree-number F, whenever: 

F in forests, and T in trees, and 

forest T is forest F, and species T is "cedar**. 

Figure 11. Relational Database Retrievals in Natural Notation 
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(defun eval (e a) 

( cond 

((and (atom e) (numberp e)) e) 

((atom e) (assoc e a)) 

((eq (car e) 'quote) (cadr e)) 

( ( eq (car e) 'cond) (evcon (cdr e) a)) 

(T (apply (car e) (evargs (cdr e) a) a) )) ) 

(defun evcon (L a) 

( cond 

((eval (caar L) a) (eval (cadar L) a)) 

(T (evcon (cdr L) a)) )) 

(defun evargs (x a) (mapcar (bu (rev 'eval) a) x)) 

(defun apply (f x a) 

( cond 

((eq f 'car) (car (car x)) ) 

((eq f 'cdr) (cdr (car x)) ) 

((eq f 'atom) (atom (car x)) ) 

( ( eq f 'null) (null (car x)) ) 

( ( eq f 'cons) (cons (car x) (cadr x)) ) 

( ( eq f 'eq) (eq (car x) (cadr x)) ) 

(T (let ((L (eval f a) )) 

(let ((LE (mapcar 'list (cadr L) x) )) 

(eval (caddr L) (append LE a)) )) )) ) 

Figure 12. LISP Universal Function in LISP 
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"Names evaluate form" means: 



form if (atom form and number form), else: 
names search form if atom form, else: 
second form if first form is "quote", else: 

names do-conditional rest form, if first form is "cond", else 
names apply first form with names evaluate-list rest form. 

"Names do-conditional pairs" means: 
names evaluate second first pairs, 
if names evaluate first first pairs, 
else names do-conditional rest pairs. 

"Names evaluate-list forms" means: 
nil if null forms, else: 
names evaluate first forms, 
with names evaluate-list rest forms. 

Figure 13* LISP Universal Function in Natural Notation (Part 1) 
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"Names apply function with actuals" means: 

first first actuals if function is "car", else: 

rest first actuals if function is "cdr", else: 

atom first actuals if function is "atom", else: 

null first actuals if function is "null", else: 

first actuals with second actuals, if function is "cons", el 

first actuals is second actuals, if function is "eq", else: 

names apply-user function with actuals. 

"Names apply-user function with actuals" means: 

lambda-expression means names evaluate function, below: 
bound-variables means second lambda-expression, below: 
bound -var iabl es pair-with actuals, append names, 
evaluate third lambda-expression. 

"Names pair-with values" means: 
nil if null names, else: 
first names with first values, 
with rest names pair-with rest values. 

Figure m. LISP Universal Function in Natural Notation (Part 
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